home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
system
/
pc_dcl.zip
/
WFILE.DCL
< prev
Wrap
Text File
|
1991-11-11
|
568b
|
20 lines
set verify
open /write/error=ferror /length=10 outfile toto.dat
!open /write/error=ferror outfile toto.dat
write /error=ferror outfile "1111111111"
write /error=ferror outfile "2222222222"
write /error=ferror outfile "3333333333"
write /error=ferror outfile "4444444444"
write /error=ferror outfile "5555555555"
write /error=ferror outfile "6666666666"
write /error=ferror outfile "7777777777"
write /error=ferror outfile "8888888888"
write /error=ferror outfile "9999999999"
write /error=ferror outfile "0000000000"
close outfile
exit
ferror: